MacWorld 1997: Best New Mac Games/Image(3).iso/Games/Space Bar/WLD/BAR.WLD

Text File | 1997-06-29 | 26.9 KB | 753 lines | [TEXT/LMAN]

// Spacebar demo
START_WLD=INTRO1A_WLD
DISKID=1
DISKAUDIO=$SBARDIR\GENERAL\CHADIS1.WAV
SHAREDPAL=$SBARDIR\BAR\CURSORS\NOT.BMP

CURSOR 0  = 15 15 $SBARDIR\BAR\CURSORS\NOT.BMP = USESHAREDPAL
CURSOR 1  = 16  1 $SBARDIR\BAR\CURSORS\HUMAN.BMP = USESHAREDPAL
CURSOR 2  =  9  9 $SBARDIR\BAR\CURSORS\ZOOM.BMP = USESHAREDPAL
CURSOR 5  = 16  1 $SBARDIR\BAR\CURSORS\LINK.BMP = USESHAREDPAL
CURSOR 6  = 15 15 $SBARDIR\BAR\CURSORS\WAIT.BMP = USESHAREDPAL
CURSOR 10 =  0  0 $SBARDIR\BAR\CURSORS\EXIT.BMP = USESHAREDPAL
CURSOR 14 =  0 14 $SBARDIR\BAR\CURSORS\LEFT.BMP = USESHAREDPAL
CURSOR 15 = 15  0 $SBARDIR\BAR\CURSORS\UPARROW.BMP = USESHAREDPAL
CURSOR 16 = 31 15 $SBARDIR\BAR\CURSORS\RIGHT.BMP = USESHAREDPAL
CURSOR 17 = 15 31 $SBARDIR\BAR\CURSORS\DOWN.BMP = USESHAREDPAL

// Wield Cursors
// Demo: only need drink, credit chip, & datacart - bar 01-27-97
CURSOR 30 = 12  4 $SBARDIR\BAR\WIELD\bdto3.bmp = USESHAREDPAL
CURSOR 44 =  9  1 $SBARDIR\BAR\WIELD\bzta.bmp = USESHAREDPAL
CURSOR 47 = 17  1 $SBARDIR\BAR\WIELD\bztd.bmp = USESHAREDPAL

VAR    TURNCOUNT AS TIMER = 1850   // VAR FOR CURRENT GAME TIME
VAR INBAR = 1
VAR TEMP1 = 0

VAR RPEVENT = FALSE                // jwl 11.07.96 used to trigger a rp queue update event
VAR PDAZOOMED = FALSE            // GENERAL USE VAR TO TELL US WHEN PDA IS ZOOMED
VAR PDAINCREMENT = 11            // HOW MUCH TO INCREMENT THE PDA WHEN ACTIVATING
VAR PDADEACTIVATE = FALSE       // DEACTIVATE THE PDA?

// DEMO: Intro storage devices.  First three storage devices
//       provide background info for the game.  Each is a click
//       to continue.  The third one is a link to the entry
//       vestibule.
SDEV INTRO1A_WLD AS CHAT {
    SET BKG=$SBARDIR\GENERAL\TEXT1A.BMP;
    SET ARE=[0,0,639,479]%5{
        LNK=INTRO1B_WLD FADE 3;
    };
}
SDEV INTRO1B_WLD AS CHAT {
    SET BKG=$SBARDIR\GENERAL\TEXT1A.BMP;
    SET BMP=$SBARDIR\GENERAL\TEXT1B.BMP [0,0];
    SET ARE = [0,0,639,479]%5{
        RUN LNK=INTRO1C_WLD FADE 3;
    };
}
SDEV INTRO1C_WLD AS CHAT {
    SET BKG=$SBARDIR\GENERAL\TEXT1A.BMP;
    SET BMP=$SBARDIR\GENERAL\TEXT1C.BMP [0,0];
    SET ARE = [0,0,639,479]%5{
        RUN LNK = BDP_WLD FADE 3;
    };
}

// DEMO: Storage device for text2x screen.
//       "There's a lot more than fits in this teeny-weeny demo..."
SDEV TXT2_WLD AS CHAT {
    SET BKG=$SBARDIR\GENERAL\TEXT2.BMP;
    SET ARE = [0, 0, 80, 480] %10{
        RUN COMMAND = CLOSE;
    }
}

// BAR AREA
SDEV BDP_WLD{
    SET BKG=$SBARDIR\BAR\PAN\BDP.BMP;
    RUN EXPR=BARLOC(BDP);
    RUN EXPR=BARCROWD~~VOLUME(6);
    RUN EXPR=BARMUSIC~~VOLUME(8);

    //     Link to Outside Howdy Saloon
    //
    // DEMO: Replaced link to outside the saloon with a link to
    //       to a "far as you can go" screen.
    SET ARE=[237,185,315,301]%5{
        RUN LNK = BDP_WLD~~TXT2_WLD
    };

    // DEMO: Replace link to the gambling hall with a "far as you can go" screen.
    SET LNK=BDP_WLD~~TXT2_WLD[105,179,208,341]@[900,130];

    // Link to The Lily Pad
    // DEMO: Replaced link to the lily pad with a link to
    //       "far as you can go" screen.
    SET ARE = LILY [409,187,501,307]%5{
        RUN LNK = BDP_WLD~~TXT2_WLD
    };

    // Link to Dance Floor
    // DEMO: Replaced link to the dance floor with a link to
    //       "far as you can go" screen.
    SET LNK=BDP_WLD~~TXT2_WLD[1258,207,1460,323]@[878,75];

    // Link to Entry Vestibule - Disabled for med. demo - bar 01-27-97
    SET LNK=BDP_WLD~~TXT2_WLD[686,199,766,276];

    // Link Bar Computer
    SET LNK=BDP_WLD~~TXT2_WLD[8,248,85,360]%2;

    // Drinkmaster
    SET ARE=DRINKMASTER[824,172,956,300]%2{
        RUN LNK = SOLDIER_WLD;
    };
    // Soldier 714
    SET CHR=$SBARDIR\GENERAL\PANIMS\BDSO1.SMK[874,196]%2{
        RUN LNK = SOLDIER_WLD;
    };
    IF (SOLDIER_MET == 1)
        // Only play Zelda's line if you didn't flash back w/Soldier bar 11/27/96
        IF (ZFLASHBACK == 0)
            RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZESO.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
            RUN EXPR=SOLDIER_MET(2);
        ENDIF
    ENDIF

    // Thud and Fleebix
    SET ARE=THUDANDFLEEB[1150,242,1256,360]%2{
        IF (TBHIDE == TRUE)
            // DEMO: Remove Thud hide support.
            RUN COMMAND = INSERT OBJECT FBTHMOVIE TO FLEETHUD_WLD;
            RUN EXPR = FBTHMOVIE~~MODAL( 0 );
            RUN EXPR = FBTHMOVIE~~LOOP( -1 );
            RUN EXPR = TBHIDECOUNT( 0 );
            RUN EXPR = TBHIDE( FALSE );
        ENDIF
        RUN LNK = FLEETHUD_WLD AS CLOSEUP;
    };
    // Thud
    SET CHR=$SBARDIR\GENERAL\PANIMS\BDTB1.SMK[1150,254]%2{
        // DEMO: Remove Thud hide support.
        RUN LNK = FLEETHUD_WLD AS CLOSEUP;
    };

    IF (THUD_GREET == TRUE)
        IF (THUD_MET == 0)
            // only have Zelda make the comment if Thud was last one speaking in CIC
            IF (THUDLAST == TRUE)
                RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZETH.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
                RUN EXPR=THUD_MET(2);
            ENDIF
        ENDIF
    ENDIF

    // DEMO: Add the Mytosi panimation without a link
    SET CHR=$SBARDIR\GENERAL\PANIMS\BDMY1.SMK[712,260];

    // DEMO: Removed link to mydw_wld when sararrive_evt is eq to 6666
    // PAKSHA STANDING IN DINING AREA - can't see it - bar 01-27-97
    // SET CHR=$SBARDIR\GENERAL\PANIMS\BDPK1.SMK[1636,226];
    // CIGARETTE SMOKE
    SET CHR=$SBARDIR\GENERAL\PANIMS\BDNC2.SMK[1084,246];
    // MOTHS SITTING AT TABLE
    SET CHR=$SBARDIR\GENERAL\PANIMS\BDMO1.SMK[1640,218];
    // DEMO: Removed link to mydw_wld and dwelf sitting at bar if sararrive_evt eq 6666
    // BAND PLAYING WITHOUT BANDLEADER
    SET CHR=$SBARDIR\GENERAL\PANIMS\BDBD1.SMK[1298,236];
    // CHECK TO SEE IF THE BANDLEADER SHOULD STILL BE AROUND
    SET CHR=$SBARDIR\GENERAL\PANIMS\BDBL1.SMK[1334,242]; // BANDLEADER
    // Cilia (seen from Bar)
       SET CHR=$SBARDIR\GENERAL\PANIMS\BDCI1.SMK[1372,242];
       // SRAFFAN LOOKING OUT WINDOW
       SET CHR=$SBARDIR\GENERAL\PANIMS\BDNC3.SMK[1438,252];

    // Secondary objects for this location
    SET ARE=CATWALK[200,10,488,173]%1{
        SET TXT = catwalk COLOR 2 AS TITLE; //%%XXXX
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            SET TXT=$SBARDIR\BAR\OBJ\BDCATEX.TXT COLOR 2 AS CAPTION; //%%XXXX
        };
    };
    // DEMO: Removed the three spaceport windows.
}
// Soldier CIC
SDEV SOLDIER_WLD AS CIC{
    SET BKG = $SBARDIR\BAR\CHAR\SOLDIER\BLACK.BMP;
    SET CHR = $SBARDIR\BAR\CHAR\SOLDIER\SONEUTR2.SMK^SOLDMOVIE [80,0] %0;

    // Mister Drinkmaster 2000
    SET ARE=[80,82,247,216]%1{
        SET TXT = Mister_DrinkMaster_2000 COLOR 2 AS TITLE; //%%9860
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNPEXC1.WAV AS QUEUE *2;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\TURNON.BMP{
            SET TXT=$SBARDIR\BAR\CHAR\SOLDIER\BDNPTNC1.TXT COLOR 2 AS CAPTION; //%%9865
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
            RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\BDNPOPC1.SMK;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\SEARCH.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNPSRC1.WAV AS QUEUE *2;
        };
    };
    // DEMO: Removed link to brooch as you can't complete the zzazzl flashback
    // DEMO:   in the demo.
    SET ARE = [110,10,140,35]%1{
        SET TXT = brooch COLOR 2 AS TITLE; //%%9880
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNEEXC1.WAV AS QUEUE *2;
            RUN EXPR = EXAMINE_BROOCH( TRUE );
        };
        SET    BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNEOPC1.WAV AS QUEUE *2;
            RUN EXPR = EXAMINE_BROOCH( TRUE );
        };
        SET    BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNETAC1.WAV AS QUEUE *2;
            RUN EXPR = EXAMINE_BROOCH( TRUE );
        };
    };
    SET ARE= [245,110,385,340] %1 {
        SET TXT=Soldier_714-Z-367 COLOR 2 SIZE 16 AS TITLE; //%%9896
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\SOOSEX.WAV AS QUEUE *2;
        };
        IF (SOLDIER_GREET == FALSE)
             SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
                RUN EXPR = SOLDMOVIE~~MODAL( 1 );
                RUN EXPR = SOLDMOVIE~~LOOP( 1 );
                RUN COMMAND = FLUSHQUEUE2;
                RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOOSGR.SMK;
                RUN EXPR = SOLDMOVIE~~MODAL( 0 );
                RUN EXPR = SOLDMOVIE~~LOOP( -1 );

                RUN COMMAND = INSERT OBJECT SOLDIER TO LOG_WLD;
                RUN EXPR=SOLDIER~~ROOM(4);
                // DEMO: Removed voiceprinter and infrared jammer code.
                RUN EXPR=SOLDIER_GREET(TRUE);
            };
        ENDIF
        IF (SOLDIER_GREET == TRUE)
            IF (EXAMINE_BROOCH == TRUE OR HAVEDRINK == TRUE)
                SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
                    SET TXT = Ask_Soldier_714-Z-367_about... COLOR 4 SIZE 16 AS TITLE; //%%9908
                    IF (EXAMINE_BROOCH == TRUE)
                        SET TXT=brooch COLOR 4 SIZE 16 %1 { //%%10000
                            RUN EXPR = SOLDMOVIE~~MODAL( 1 );
                            RUN EXPR = SOLDMOVIE~~LOOP( 1 );
                            RUN COMMAND = FLUSHQUEUE2;
                            RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAABDNE.SMK;
                            RUN EXPR = SOLDMOVIE~~MODAL( 0 );
                            RUN EXPR = SOLDMOVIE~~LOOP( -1 );
                        };
                    ENDIF
                    IF (HAVEDRINK == TRUE)
                        SET TXT=my_drink COLOR 4 SIZE 16 %1 { //%%10018
                            RUN EXPR = SOLDMOVIE~~MODAL( 1 );
                            RUN EXPR = SOLDMOVIE~~LOOP( 1 );
                            RUN COMMAND = FLUSHQUEUE2;
                            RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAABDTO.SMK;
                            RUN EXPR = SOLDMOVIE~~MODAL( 0 );
                            RUN EXPR = SOLDMOVIE~~LOOP( -1 );
                        };
                    ENDIF
                };
            ENDIF
            IF (EXAMINE_BROOCH == TRUE OR NEVER_REQUESTED_A_DRINK == TRUE)
                SET BMP=$SBARDIR\GENERAL\MENUS\ORDER.BMP{
                    SET TXT = Order_Soldier_714-Z-367_to... COLOR 4 SIZE 16 AS TITLE; //%%10028
                    IF ( EXAMINE_BROOCH == TRUE )
                        SET TXT=open_the_brooch COLOR 4 SIZE 16 %1 { //%%10030
                            SET TXT=$SBARDIR\BAR\CHAR\SOLDIER\SOOPBDNE.TXT COLOR 2 AS CAPTION; //%%10031
                        };
                    ENDIF
                    IF (NEVER_REQUESTED_A_DRINK == TRUE)
                        SET TXT=give_me_a_drink COLOR 4 SIZE 16 %1 { //%%10034
                            IF (HAVEDRINK == FALSE)
                                RUN EXPR = SOLDMOVIE~~MODAL( 1 );
                                RUN EXPR = SOLDMOVIE~~LOOP( 1 );
                                RUN COMMAND = FLUSHQUEUE2;
                                RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOGBDTO1.SMK;
                                RUN EXPR = SOLDMOVIE~~MODAL( 0 );
                                RUN EXPR = SOLDMOVIE~~LOOP( -1 );
                                RUN EXPR = REQUESTEDDRINK(TRUE);
                                // DEMO: Insert the drink into the wield.
                                RUN COMMAND=INSERT OBJECT DRINK3 TO BWIELD_WLD;
                                // DEMO: Removed the else part of the if - can't order more
                                //       than one drink.
                            ENDIF
                            // DEMO: We've modified how interactions for the drink works.  To address
                            //       scripting issues, we record that the drink has been delivered here.
                            IF (REQUESTEDDRINK == TRUE)
                                RUN EXPR = HAVEDRINK(TRUE);
                                RUN EXPR = NEVER_REQUESTED_A_DRINK(FALSE);
                            ENDIF
                        };
                    ENDIF
                };
            ENDIF
            SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
                RUN EXPR = OPENERDONE( FALSE );
                RUN EXPR = LEVEL( 0 );
                IF (SOLDIER_MET==0)
                    RUN EXPR=SOLDIER_MET(1);
                ENDIF
                RUN EXPR=SAVTURNCOUNT(TURNCOUNT);
                RUN COMMAND = DEACTIVATEPDA;
                RUN COMMAND = STOPPAINT;
                RUN MOVIE = $SBARDIR\ZZAZZL\EVENTS\EVFLASH.SMK[0,0];
                RUN LNK = $SBARDIR\WLD\ZZADEMO.WLD;
                // DEMO: Demo removed support to block reentry to the Zzazzl flashback.
            };
        ENDIF
    };
    // DEMO: Removed your_drink - BDTO3.BMP^DRINK3 - bar 01-22-97
}

// Fleebix & Thud CIC
SDEV FLEETHUD_WLD AS CIC{
    SET BKG=$SBARDIR\BAR\CHAR\THUD\BLACK.BMP;
    SET CHR = $SBARDIR\BAR\CHAR\THUD\TBNEUTR1.SMK^FBTHMOVIE [80,0] %0;
    // DEMO: Remove Thud's hide loop.

    // DEMO: Removed support to make thud hide.
    SET ARE= [150,155,250,310]^FLEEBIX %1 {
        SET TXT=Fleebix COLOR 2 SIZE 16 AS TITLE; //%%9030
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\FLEEBIX\FBOSEX.WAV AS QUEUE *2;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\SMELL.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\FLEEBIX\FBOSSM.WAV AS QUEUE *2;
        };

        IF (FLEEB_GREET == FALSE )
            SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
                RUN EXPR = FBTHMOVIE~~MODAL( 1 );
                RUN EXPR = FBTHMOVIE~~LOOP( 1 );
                RUN COMMAND = FLUSHQUEUE2;
                RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBOSGR.SMK;
                RUN EXPR = FBTHMOVIE~~MODAL( 0 );
                RUN EXPR = FBTHMOVIE~~LOOP( -1 );
                RUN COMMAND = INSERT OBJECT FLEEBIX TO LOG_WLD;
                // DEMO: Removed voiceprinter and ir jammer support.
                RUN EXPR = THUDLAST( FALSE );
                RUN EXPR = FLEEB_GREET( TRUE );
            };
        ELSE
            SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
                SET TXT=Ask_Fleebix_about... COLOR 4 SIZE 16 AS TITLE; //%%9071
                SET TXT=myself COLOR 4 SIZE 16 %1 { //%%9091
                    // DEMO: Removed Thud hiding support from Fleebix chat.
                    RUN EXPR = FBTHMOVIE~~MODAL( 1 );
                    RUN EXPR = FBTHMOVIE~~LOOP( 1 );
                    RUN COMMAND = FLUSHQUEUE2;
                    RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBAAAN.SMK;
                    RUN EXPR = FBTHMOVIE~~MODAL( 0 );
                    RUN EXPR = FBTHMOVIE~~LOOP( -1 );
                    RUN EXPR = THUDLAST( FALSE );
                };
// Removed from Demo - bar 01-27-97
//                IF (THUD_GREET == TRUE)
//                    SET TXT=Thud COLOR 4 SIZE 16 %1 { //%%9111
//                        // DEMO: Removed Thud hiding support from Fleebix chat.
//                        RUN EXPR = FBTHMOVIE~~MODAL( 1 );
//                        RUN EXPR = FBTHMOVIE~~LOOP( 1 );
//                        RUN COMMAND = FLUSHQUEUE2;
//                        RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBAATB.SMK;
//                        RUN EXPR = FBTHMOVIE~~MODAL( 0 );
//                        RUN EXPR = FBTHMOVIE~~LOOP( -1 );
//                        RUN EXPR = THUDLAST( FALSE );
//                    };
//                ENDIF
                SET TXT = Yzore [80,390,400,405] COLOR 4 SIZE 16 %1 { //%%2518
                    RUN EXPR = FLEEMOVIE~~MODAL( 1 );
                    RUN EXPR = FLEEMOVIE~~LOOP( 1 );
                    RUN COMMAND = FLUSHQUEUE2;
                    RUN MOVIE = $SBARDIR\BAR\CHAR\FLEEBIX\FBCH1L3B.SMK;
                    RUN EXPR = FLEEMOVIE~~MODAL( 0 );
                    RUN EXPR = FLEEMOVIE~~LOOP( -1 );
                };
            };
            // DEMO: Removed chat because it gets to the neblitz flashback.  That's not part of the demo.
        ENDIF
    };

    SET ARE= [350,135,545,359] %1 {
        SET TXT=Thud COLOR 2 SIZE 16 AS TITLE; //%%9528
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\THUD\TBOSEX.WAV AS QUEUE *2;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\KISS.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\THUD\TBOSKS.WAV AS QUEUE *2;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\SMELL.BMP{
            RUN SND=$SBARDIR\BAR\CHAR\THUD\TBOSSM.WAV AS QUEUE *2;
        };
        IF (THUD_GREET == FALSE)
            SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
                RUN EXPR = FBTHMOVIE~~MODAL( 1 );
                RUN EXPR = FBTHMOVIE~~LOOP( 1 );
                RUN COMMAND = FLUSHQUEUE2;
                RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBOSGR.SMK;
                RUN EXPR = FBTHMOVIE~~MODAL( 0 );
                RUN EXPR = FBTHMOVIE~~LOOP( -1 );

                RUN COMMAND = INSERT OBJECT THUD TO LOG_WLD;
                // DEMO: Removed voiceprinter and ir jammer support.
                RUN EXPR = THUDLAST( TRUE );
                RUN EXPR = THUD_GREET( TRUE );
            };
        ELSE
            // DEMO: Removed playwith thud interaction because it kills you.
            // DEMO: Removed search interaction
            SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
                SET TXT=Ask_Thud_about... COLOR 4 SIZE 16 AS TITLE; //%%9581
                SET TXT=himself COLOR 4 SIZE 16 %1 { //%%9582
                    RUN EXPR = FBTHMOVIE~~MODAL( 1 );
                    RUN EXPR = FBTHMOVIE~~LOOP( 1 );
                    RUN COMMAND = FLUSHQUEUE2;
                    RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAATB.SMK;
                    RUN EXPR = FBTHMOVIE~~MODAL( 0 );
                    RUN EXPR = FBTHMOVIE~~LOOP( -1 );
                    RUN EXPR = THUDLAST( TRUE );
                };
                // DEMO: Deleted ask about myself interaction.
                IF (FLEEB_GREET == TRUE)
                    SET TXT=Fleebix COLOR 4 SIZE 16 %1 { //%%9599
                        RUN EXPR = FBTHMOVIE~~MODAL( 1 );
                        RUN EXPR = FBTHMOVIE~~LOOP( 1 );
                        RUN COMMAND = FLUSHQUEUE2;
                        RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAAFB.SMK;
                        RUN EXPR = FBTHMOVIE~~MODAL( 0 );
                        RUN EXPR = FBTHMOVIE~~LOOP( -1 );
                        RUN EXPR = THUDLAST( TRUE );
                    };
                ENDIF
                // DEMO: Removed ask about the bartender interaction.
                // DEMO: Removed ask about the band interaction.
                // DEMO: Removed ask about the datacart interaction.
                // DEMO: Removed ask about old poisoned dart interaction.
                // DEMO: Removed ask about poisoned dart interaction.
                // DEMO: Removed ask about new poisoned dart interaction.
                // DEMO: Removed ask about old viddisc interaction.
                // DEMO: Removed ask about viddisc interaction.
            };
            // DEMO: Removed Order Thud to interaction
            // DEMO: Removed the chat interaction (link to the Salivraster flashback)
        ENDIF
    };
}
// End Fleebix & Thud CIC
// DEMO: Removed mydw_wld

SDEV BPDA_WLD AS PDA{
    SET BKG=$SBARDIR\BAR\PDA\BPDA.BMP;
    SET ARE=DEACTIVE[0,0,514,238]{
        RUN COMMAND = DEACTIVATEPDA;
    };
    SET BUT=$SBARDIR\BAR\PDA\BMAP.BMP[123,188]+1^100;
    SET BUT=$SBARDIR\BAR\PDA\BSTASH.BMP[165,188]+1^101;
//    SET BUT=$SBARDIR\BAR\PDA\ZOOMLITE.BMP[208,187]+2^ZOOMFLASH FRAMERATE 4;
    // DEMO: Disabled the zoom button -- click brings up text. - bar 01-27-96
    SET BUT=$SBARDIR\BAR\PDA\BZOOM.BMP[208,187]+2^102 {
        SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
    };
    SET BUT=$SBARDIR\BAR\PDA\BSYSTEM.BMP[262,188]+1^113 {
        SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
    };
    SET BUT=$SBARDIR\BAR\PDA\BLOG.BMP[304,188]+1^104;
       SET CHR=$SBARDIR\BAR\PDA\BWAND.SMK^WANDANIM LOOP 0[41,8];
    SET BUT=$SBARDIR\BAR\PDA\BBLINK.BMP[361,133]^110^MSGLIGHT+2{
//        RUN EXPR=ZELDA_REM(6666);
    }
    SET TIME=$SBARDIR\BAR\PDA\BTIME.BMP[410,140]^CLOCK+11 VALUE TURNCOUNT;

    IF (BARLOC == BAP)
        SET SPR=$SBARDIR\BAR\MAP\NAMES\BA.BMP[377,82];
    ENDIF
    IF (BARLOC == BDP)
        SET SPR=$SBARDIR\BAR\MAP\NAMES\BD.BMP[377,82];
    ENDIF
}

// ZOOM PDA
//SDEV BPDAZ_WLD AS ZOOMPDA{
    // DEMO: Made the zoomed PDA empty.
//    SET BKG=$SBARDIR\BAR\PDA\BPDAZ.BMP;
//}

SDEV MAP_WLD AS BMP RECT [116, 61, 350, 172]{
    SET BKG=$SBARDIR\BAR\MAP\BARMAP.BMP;
    // THE YOU ICON
    IF (BARLOC == BAP)
        SET SPR=$SBARDIR\BAR\MAP\YOU.BMP[66,89]+2;
    ENDIF
    IF (BARLOC == BDP)
        SET SPR=$SBARDIR\BAR\MAP\YOU.BMP[57,52]+2;
    ENDIF
}

SDEV INV_WLD AS INVWLD RECT [116, 61, 350, 172]{
    SET BKG=$SBARDIR\BAR\INV\INVBACK.BMP;
    // added to demo - bar 01-27-97
    HOLD MOVIE=$SBARDIR\BAR\EVENTS\EVZEFS.SMK[97,292]^FIRST_STASH_MOVIE AS PDAMSG DONTOVERRIDE DONTINCREMENT;
    SET BMP=$SBARDIR\BAR\INV\BZTA.BMP^CREDITCHIP{
        SET TXT = credit_chip COLOR 2 AS TITLE; //%%3919
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN MOVIE=$SBARDIR\BAR\OBJ\BZTA.SMK AS EXAMINE;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\CHECK.BMP{
            // Demo: down to just 1 response; can't get/lose any credits - bar 01-27-97
            RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC4.WAV;
               RUN TXT=$SBARDIR\BAR\OBJ\CREDITS.TXT VAR NUGGETS COLOR 2 AS CAPTION;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
            RUN COMMAND=TRANSFER OBJECT CREDITCHIP FROM INV_WLD TO BWIELD_WLD;
        };
    };
    // DATACART
    SET BMP=$SBARDIR\BAR\INV\BZTD.BMP^DATACART{
        SET TXT = datacart COLOR 2 AS TITLE; //%%2950
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN COMMAND = FLUSHQUEUE2;
            RUN MOVIE=$SBARDIR\BAR\OBJ\BZTD.SMK AS EXAMINE SND=$SBARDIR\BAR\OBJ\BZTDEXC1.WAV;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
            RUN COMMAND=TRANSFER OBJECT DATACART FROM INV_WLD TO BWIELD_WLD;
            RUN EXPR=DC_DART_EVT(TURNCOUNT + 10);
        };
    };
     // DRINK 3 NON-POISONOUS
    HOLD BMP=$SBARDIR\BAR\INV\BDTO3.BMP^DRINK3*0{
        SET TXT = your_drink COLOR 2 AS TITLE; //%%3229
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN COMMAND = FLUSHQUEUE2;
            RUN MOVIE=$SBARDIR\BAR\OBJ\BDTO3.SMK AS EXAMINE SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTOEXC2.WAV;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\DRINK.BMP{
            RUN COMMAND=REMOVE OBJECT DRINK3 FROM INV_WLD
            RUN COMMAND=REMOVE OBJECT DRINK3 FROM INVZ_WLD
            RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC2.WAV AS ASYNC;
            RUN EXPR=TEMP(NUM_DRINKS);
            IF (TEMP == 0)
                RUN EXPR=NUM_DRINKS(1);
            ENDIF
            RUN EXPR = HAVEDRINK( FALSE );
            RUN COMMAND=UPDATE;
        };
            SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
            RUN COMMAND=TRANSFER OBJECT DRINK3 FROM INV_WLD TO BWIELD_WLD;
            };
        // DEMO: Removed residue printing support.
    };
}
SDEV BWIELD_WLD AS WIELD{
    BKG=$SBARDIR\BAR\WIELD\HUMYOU2.BMP;
    SET ARE = [0,0,100,100] {
        SET TXT =Alias_Node COLOR 2 SIZE 16 AS TITLE; //%%135
        SET BMP=$SBARDIR\GENERAL\MENUS\WAIT.BMP {
            RUN SND = $SBARDIR\GENERAL\WAIT.WAV;
//            RUN COMMAND = EVENTLOOP;
            RUN COMMAND = UPDATE;
        };
    };
    // CREDIT CHIP
    HOLD BMP=$SBARDIR\BAR\WIELD\BZTA.BMP^CREDITCHIP #44{
        SET TXT = credit_chip COLOR 2 AS TITLE; //%%2215
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN MOVIE=$SBARDIR\BAR\OBJ\BZTA.SMK AS EXAMINE;
        };
        // Check credit balance
        SET BMP=$SBARDIR\GENERAL\MENUS\CHECK.BMP{
            // Demo: down to just 1 response, can't get/lose any credits - bar 01-27-97
            RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC4.WAV;
               RUN TXT=$SBARDIR\BAR\OBJ\CREDITS.TXT VAR NUGGETS COLOR 2 AS CAPTION;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
            RUN COMMAND=TRANSFER OBJECT CREDITCHIP FROM BWIELD_WLD TO INV_WLD;
        };
    };
    // DATACART
    HOLD BMP=$SBARDIR\BAR\WIELD\BZTD.BMP^DATACART #47{
        SET TXT = datacart COLOR 2 AS TITLE; //%%2251
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN COMMAND = FLUSHQUEUE2;
            RUN MOVIE=$SBARDIR\BAR\OBJ\BZTD.SMK AS EXAMINE SND=$SBARDIR\BAR\CLOSEUP\BACF\BZTDEXC1.WAV;
        };
          SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
            RUN COMMAND=TRANSFER OBJECT DATACART FROM BWIELD_WLD TO INV_WLD;
            RUN EXPR=DC_DART_EVT(6666);
        };
    };
    // DEMO: Removed the high frequency jammer
     // DRINK 3 NON-POISONOUS
    HOLD BMP=$SBARDIR\BAR\WIELD\BDTO3.BMP^DRINK3 #30{
        SET TXT = your_drink COLOR 2 AS TITLE; //%%2456
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN COMMAND = FLUSHQUEUE2;
            RUN MOVIE=$SBARDIR\BAR\OBJ\BDTO3.SMK AS EXAMINE SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTOEXC2.WAV;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\DRINK.BMP{
            RUN COMMAND=REMOVE OBJECT DRINK3 FROM BWIELD_WLD;
            RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC2.WAV AS WAITQUEUE *2;
            RUN EXPR=TEMP(NUM_DRINKS);
            // DEMO: Removed support for more than 1 drink
            IF (TEMP == 0)
                RUN EXPR=NUM_DRINKS(1);
            ENDIF
            RUN EXPR = HAVEDRINK( FALSE );
            RUN COMMAND=UPDATE;
        };
            SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
            RUN COMMAND=TRANSFER OBJECT DRINK3 FROM BWIELD_WLD TO INV_WLD;
            // DEMO: Removed residue printer support.
        };
    };
}

SDEV MOO_WLD AS MOOWLD RECT [116, 61, 350, 172]{
    SET BKG=$SBARDIR\BAR\INV\INVBACK.BMP;
}

SDEV EVT_WLD AS EVENT{
    IF (BARCROWD~~PLAYING == 0)
            RUN EXPR=BARCROWD~~VOLUME(0);
        RUN SND=$SBARDIR\BAR\EVENTS\BARBREAK.WAV^BARCROWD LOOP 1999999 AS MIX IS TIMELESS SOUNDOVEROK;
    ENDIF
    IF (BARMUSIC~~PLAYING == 0)
            RUN SND=$SBARDIR\BAR\EVENTS\BARBAND1.MID^BARMUSIC LOOP 1999999 AS MIDI IS TIMELESS;
    ENDIF
    // Coming back from a flashback
    IF (SAVTURNCOUNT < 6666)
        RUN EXPR=TURNCOUNT( SAVTURNCOUNT );
        RUN EXPR=SAVTURNCOUNT( 6666 );
    ENDIF
    // BULBUS FLIGHT DELAYED TO 22:90
    IF ( FLIGHT_MSG==1 AND TURNCOUNT > 1855 )
        RUN SND=$SBARDIR\BAR\EVENTS\EVFLA5.WAV AS QUEUE *1 SOUNDOVEROK VOLUME 7;
        RUN EXPR=FLIGHT_MSG(2);
    ENDIF
}

SDEV LOG_WLD AS LOG RECT [116, 61, 350, 172] {
    HOLD MOVIE=$SBARDIR\BAR\LOG\OVERRIDE.SMK[97,292]^OVERRIDE_MOVIE AS PDAMSG DONTOVERRIDE DONTINCREMENT;
    HOLD TXT=Credit_Chip__________________[0, 0, 200, 12]^CCNAME FONT 0 COLOR 7 SIZE 10 AS TITLE;
    HOLD TXT=Data_Cartridge_______________[0, 0, 200, 12]^DCNAME FONT 0 COLOR 7 SIZE 10 AS TITLE;
    SET BKG=$SBARDIR\BAR\INV\INVBACK.BMP;
    IF (LOG_STATE == MAINMENU)
        SET TXT=_______REVIEW__MESSAGES_______[40,48] COLOR 7 FONT 0 SIZE 10 AS TITLE{ //%%958
            RUN EXPR=CUR_BAR_LOG_PAGE(1);
            RUN EXPR=LOG_STATE(MSG);
        };
    ENDIF

    IF (LOG_STATE == MSG)
        SET TXT=$SBARDIR\BAR\LOG\MSGTOP.TXT[60, 0, 200, 20] COLOR 7 SIZE 8 FONT 0 AS TITLE ; //%%1210
        SET TXT=MESSAGE_FROM_________________TIME[6, 26] COLOR 7 SIZE 8 FONT 0 IS HIGHLIGHT AS TITLE; //%%1211
           IF (MAKSH1~~PLAYED == 1)
            SET MSG=MAKSH1^MAKSH1 SENDEE Maksh TIME MAKSH1~~TIME{
                RUN MOVIE=$SBARDIR\BAR\EVENTS\EVMAKN1.SMK[97,292] AS PDAMSG;
                // DEMO: Removed the movie were maksh recues alias from the gordo.
            };
        ENDIF
        SET TXT=MAIN_MENU[80,100] COLOR 7 SIZE 10 IS HIGHLIGHT AS TITLE{ //%%1339
            RUN COMMAND = REMOVE OBJECT LOGPAGUP FROM LOG_WLD;
            RUN COMMAND = REMOVE OBJECT LOGPAGDOWN FROM LOG_WLD;
            RUN EXPR=LOG_STATE(MAINMENU);
        };
    ENDIF
    HOLD TXT=UP[40,100]^LOGPAGUP COLOR 7 SIZE 10 IS HIGHLIGHT AS TITLE{
        RUN EXPR=TEMP(CUR_BAR_LOG_PAGE);
        IF ( TEMP > 0 )
            RUN EXPR=CUR_BAR_LOG_PAGE( CUR_BAR_LOG_PAGE - 1 );
        ENDIF
    };
    HOLD TXT=DOWN[140,100]^LOGPAGDOWN COLOR 7 SIZE 10 IS HIGHLIGHT AS TITLE{
        RUN EXPR=CUR_BAR_LOG_PAGE( CUR_BAR_LOG_PAGE + 1 );
    };
}

//SDEV LOGZ_WLD AS LOG RECT [24,47,624,347]{
//    SET BKG=$SBARDIR\BAR\INV\INVBACKZ.BMP;
    // DEMO: Made the zoomed log an empty storage device.
//}

SDEV TURN_WLD AS TURNEVENT {
    IF (TURNCOUNT == ENDTURN)
        RUN EXPR = TURNCOUNT( STARTTURN );
    ENDIF
    // DEMO: Removed brief1_evt
    // DEMO: Removed brief2_evt
    // DEMO: Removed brief3_evt
    // DEMO: Removed nidop1_evt
    // DEMO: Removed zenid1_evt
    // DEMO: Removed nidop2_evt
    // DEMO: Removed nidop3_evt
    // DEMO: Removed nidop4_evt
    // DEMO: Removed nidop5_evt
    // DEMO: Removed nidop6_evt
    // DEMO: Removed nidop7_evt
    // DEMO: Removed nidop8_evt
    // DEMO: Removed nidop9_evt
    IF (TURNCOUNT > MAKSH1_EVT )
        // RUN EVENT
        RUN COMMAND=INSERT OBJECT MAKSH1 TO LOG_WLD;
        RUN COMMAND=INSERT OBJECT MAKSH1Z TO LOGZ_WLD;
        RUN EXPR=MAKSH1~~TIME(TURNCOUNT);
//        RUN EXPR=MAKSH1Z~~TIME(TURNCOUNT);
//        IF (ZELDA_REM == 6666)
//            RUN EXPR=ZELDA_REM(TURNCOUNT + 20);
//        ENDIF
        // KILL THIS EVENT
        RUN EXPR=MAKSH1_EVT(6666);
    ENDIF
    // DEMO: Removed maksh2_evt
    // DEMO: Removed maksh3_evt
    // DEMO: Removed maksh4_evt
    // DEMO: Removed maksh5_evt
    // DEMO: Removed maksh6_evt
    // BULBUS FLIGHT DELAYED TO 22:90
    IF ( FLIGHT_MSG==1 AND TURNCOUNT > 1855 )
        RUN SND=$SBARDIR\BAR\EVENTS\EVFLA5.WAV AS QUEUE *1 SOUNDOVEROK VOLUME 7;
        RUN EXPR=FLIGHT_MSG(2);
    ENDIF
    // DEMO: Removed flight_msg 2 (bulbus 3 departure canceled)
    // DEMO: Removed flight_msg 3 (hypoctl flight has arrived at gate)
    // DEMO: Removed flight_msg 4 (arrival from dingle has lost contact)
    // DEMO: Removed flight_msg 5 (bulbus 3 departure canceled - repeat)
    // DEMO: Removed flight_msg 6 (bulbus 3 departure canceled - repeat)
    // DEMO: Removed flight_msg 7 (pina-4 departure - mollassoid joke)
    // DEMO: Removed flight_msg 8 (karkas-4 departure on time at 22:50)
    // DEMO: Removed arktobap_evt
    // DEMO: Removed arktobgp_evt
    // DEMO: Removed sararrive_evt
    // DEMO: Removed durtobfp_evt
    // DEMO: Removed cilvid_evt
    // DEMO: Removed move_paksha_evt
    // DEMO: Removed dlve_drnk_evt
    // DEMO: Removed entry vestibule computer nidopal access
    // DEMO: Removed borksh_ret_evt
    // DEMO: Removed dc_dart_evt
    // DEMO: Removed change_gus_evt
    // DEMO: Removed arkdeath_evt
    // DEMO: Removed Zelda's comment - bar 01-27-97
//    IF ( TURNCOUNT > ZELDA_REM )
//        IF (FIRST_ZELDA == TRUE)
//                 RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEMSG.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
//            ELSE
//                RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEMSG1.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
//                 RUN EXPR=FIRST_ZELDA(TRUE);
//             ENDIF
//        RUN EXPR=ZELDA_REM(6666);
//    ENDIF
    // DEMO: Removed mytosi_change_evt
    // DEMO: Removed end of game event
    // DEMO: Removed reminder to use the voice and residue printer
    // DEMO: Removed infrared jammer
    // DEMO: Removed zelda_lost_signal event
}